Plot[log((-1 + N)^(-1 + N) N), {N, 1, 20}]